home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pasclern.zip / PROCED4.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-01  |  565b  |  25 lines
  1. PROGRAM scope_of_variables;
  2.  
  3. VAR count : INTEGER;
  4.     index : INTEGER;
  5.  
  6. PROCEDURE print_some_data;
  7.  
  8. VAR count : INTEGER;
  9.  
  10. BEGIN
  11.   count := 7;
  12.   WRITELN('In print_some_data count =',count:5,'  index =',index:5);
  13. END; (* of print_some_data PROCEDURE *)
  14.  
  15. BEGIN   (* Main program *)
  16. FOR index := 1 TO 3 DO
  17. BEGIN
  18.   count := index;
  19.   WRITELN('In main program count    =',count:5,'  index =',index:5);
  20.   print_some_data;
  21.   WRITELN('In main program count    =',count:5,'  index =',index:5);
  22.   WRITELN;
  23. END; (* count loop *)
  24. END. (* main program *)
  25.